home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / PInterfaces / OCEErrors.p < prev    next >
Text File  |  1996-05-01  |  19KB  |  339 lines
  1. {
  2.      File:        OCEErrors.p
  3.  
  4.      Contains:    Apple Open Collaboration Environment Error Interfaces.
  5.  
  6.      Version:    Technology:    AOCE Toolbox 1.02
  7.                  Release:    Universal Interfaces 3.0d3 on Copland DR1
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT OCEErrors;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __OCEERRORS__}
  28. {$SETC __OCEERRORS__ := 1}
  29.  
  30. {$I+}
  31. {$SETC OCEErrorsIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __ERRORS__}
  35. {$I Errors.p}
  36. {$ENDC}
  37.  
  38. {$PUSH}
  39. {$ALIGN MAC68K}
  40. {$LibExport+}
  41.  
  42. {$IFC FOR_SYSTEM7_ONLY }
  43. {
  44. Allocated ranges:
  45.     AOCE General Errors                        -1500 to -1539
  46.     AOCE Authentication Errors                -1540 to -1609
  47.     AOCE Catalog Errors                        -1610 to -1680
  48.     
  49.     AOCE Standard Mail Errors                -1900 to -1949
  50.     AOCE Standard Catalog Errors            -1950 to -1969
  51.     AOCE Digital Signature Errors            -1970 to -1999
  52.  
  53.     AOCE Templates Errors                    -15000 to -15039
  54.     AOCE Mail Errors                        -15040 to -15089
  55.     AOCE Messaging Errors                    -15090 to -15169
  56.     Reserved for future                        -15170 to -15199
  57. }
  58. {  AOCE General Errors (-1500 to -1539)  }
  59.  
  60. CONST
  61.     kOCEToolboxNotOpen            = -1500;                        {  Toolbox not open; perhaps its closing  }
  62.     kOCEInvalidCommand            = -1501;                        {  Request code passed to a trap call is invalid  }
  63.     kOCEInvalidRef                = -1502;                        {  a reference to an object is obsolete or invalid  }
  64.     kOCEBufferTooSmall            = -1503;                        {  the buffer supplied is too small for the task  }
  65.     kOCEVersionErr                = -1504;                        {  some manner of software version mismatch  }
  66.     kOCESyncAsyncErr            = -1505;                        {  Op tried synchronously may only be done async, or vice versa  }
  67.     kOCEInternalErr                = -1506;                        {  the OCE toolbox has an internal error  }
  68.     kOCENotAnOwner                = -1507;                        {  this operation can only be done by the object's owner  }
  69.     kOCENotImplemented            = -1508;                        {  Feature not implemented  }
  70.     kOCENotAuthenticated        = -1509;                        {  The user must be authenticated  }
  71.     kOCEAlreadyExists            = -1510;                        {  The object being added already exists  }
  72.     kOCEDoesntExist                = -1511;                        {  the object being referenced doesn't exist or cannot be found  }
  73.     kOCEConnectionErr            = -1512;                        {  Unable to open or maintain a network transport  }
  74.     kOCEConnectionClosed        = -1513;                        {  Connect has closed  }
  75.     kOCEInvalidRecipient        = -1514;                        {  Invalid recipient/address for this command  }
  76.     kOCEInvalidIndex            = -1515;                        {  invalid index (out of range)  }
  77.     kOCERefIsClosing            = -1516;                        {  Object references is being closed, cannot complete command  }
  78.     kOCEHasPendingMsgs            = -1517;
  79.     kOCEInvalidConfiguration    = -1518;
  80.     kOCERequiredServicesNotAvailable = -1519;
  81.     kOCEServerInactive            = -1520;
  82.     kOCEMoreDiskSpaceNeeded        = -1521;                        {  Inadequate disk space to safely complete operation  }
  83.     kOCEParamErr                = -50;                            {  invalid parameter passed to toolbox  }
  84.  
  85. {  AOCE Authentication Errors (-1540 to -1609)  }
  86.     kOCEReadAccessDenied        = -1540;
  87.     kOCEWriteAccessDenied        = -1541;
  88.     kOCEAccessRightsInsufficient = -1542;                        {  stream needs to be authenticated, or not authorized, or someone other than agent trying to TPFC, or problem in server-to-server authentication  }
  89.     kOCEUnsupportedCredentialsVersion = -1543;                    {  don't know how to read that version of credentials  }
  90.     kOCECredentialsProblem        = -1544;                        {  couldn't successfully decrypt credentials  }
  91.     kOCECredentialsImmature        = -1545;                        {  current time < first valid time  }
  92.     kOCECredentialsExpired        = -1546;                        {  current time > expiry time  }
  93.     kOCEProxyImmature            = -1547;                        {  current time < proxy start time  }
  94.     kOCEProxyExpired            = -1548;                        {  current time > proxy expiry time  }
  95.     kOCEDisallowedRecipient        = -1549;                        {  Recipient not specified in proxy  }
  96.     kOCENoKeyFound                = -1550;                        {  found no key for entity in question  }
  97.     kOCEPrincipalKeyNotFound    = -1551;                        {  couldn't decode proxy because principal has no key  }
  98.     kOCERecipientKeyNotFound    = -1552;                        {  recipient has no key  }
  99.     kOCEAgentKeyNotFound        = -1553;                        {  in TPFC, agent has no key  }
  100.     kOCEKeyAlreadyRegistered    = -1554;                        {  entity already has a key  }
  101.     kOCEMalformedKey            = -1555;                        {  key is of an unknown encryption method, or key doesn't match password  }
  102.     kOCEUndesirableKey            = -1556;                        {  password too short, key too simple, or trying to change cluster key to the same value  }
  103.     kOCEWrongIdentityOrKey        = -1557;                        {  In CheckIdentity, name doesn't exist or key is wrong  }
  104.     kOCEInitiatorKeyProblem        = -1558;                        {  either we couldn't find the initiator's key or we found it but couldn't successfully decrypt instructions or proxy  }
  105.     kOCEBadEncryptionMethod        = -1559;                        {  the specified encryption method is not supported  }
  106.     kOCELocalIdentityDoesNotExist = -1560;                        {  LocalIdentity has to be setup  }
  107.     kOCELocalAuthenticationFail    = -1561;                        {  LocalIdentity Login has to be done for this operation  }
  108.     kOCELocalIdentitySetupExists = -1562;                        {  LocalIdentity setup exists, use change instead of setup  }
  109.     kOCEDirectoryIdentitySetupExists = -1563;                    {  DirectoryIdentity setup exists, use change instead of setup  }
  110.     kOCEDirectoryIdentitySetupDoesNotExist = -1564;                {  DirectoryIdentity setup does not exist  }
  111.     kOCENotLocalIdentity        = -1565;                        {  Use LocalIdentity calls instead!  }
  112.     kOCENoMoreIDs                = -1566;                        {  identity table is full  }
  113.     kOCEUnknownID                = -1567;                        {  identity passed is not valid  }
  114.     kOCEOperationDenied            = -1568;                        {  LocalID operation denied  }
  115.     kOCEAmbiguousMatches        = -1569;                        {  ambiguous matches found in resolving CIDs (more than 1 CID)  }
  116.     kOCENoASDSPWorkSpace        = -1570;                        {  No ASDSP workspace passed for Open Secure Stream  }
  117.     kOCEAuthenticationTrouble    = -1571;                        {  generic authentication problem  }
  118.  
  119. {  AOCE Catalog Errors (-1610 to -1680)  }
  120.     kOCENotLocal                = -1610;                        {  the server does not serve the requested dNode  }
  121.     kOCETooBusy                    = -1611;                        {  server cannot complete call at this time  }
  122.     kOCEDatabaseFull            = -1612;                        {  disk is full  }
  123.     kOCETargetDirectoryInaccessible = -1613;                    {  Catalog server not responding  }
  124.     kOCEBogusArgs                = -1614;                        {  Args not formatted correctly on the wire  }
  125.     kOCENoSuchDNode                = -1615;                        {  the requested dNode does not exist  }
  126.     kOCEDNodeUnavailable        = -1616;                        {  could not find any servers that serve the requested dNode  }
  127.     kOCEBadRecordID                = -1617;                        {  invalid RecordID (usually name and/or type don't match cid)  }
  128.     kOCENoSuchRecord            = -1618;                        {  the specified record does not exist  }
  129.     kOCENoSuchAttributeValue    = -1619;                        {  The attribute value that was passed in does not exist  }
  130.     kOCENoSuchPseudonym            = -1620;                        {  the specified pseudonym does not exist  }
  131.     kOCEAttributeValueTooBig    = -1621;                        {  self-explanatory  }
  132.     kOCETypeExists                = -1622;                        {  The type already exists in the record  }
  133.     kOCEMoreData                = -1623;                        {  only a warning - buffer not big enough  }
  134.     kOCERefNumBad                = -1624;                        {  RefNum is not valid  }
  135.     kOCEStreamCreationErr        = -1625;                        {  problem creating stream  }
  136.     kOCEOperationNotSupported    = -1626;                        {  the specified catalog does not support this operation  }
  137.     kOCEPABNotOpen                = -1627;                        {  specified Personal Catalog is not open to make the operation  }
  138.     kOCEDSAMInstallErr            = -1628;                        {  specified CSAM could not be installed  }
  139.     kOCEDirListFullErr            = -1629;                        {  catalog list is full, try removing an entry  }
  140.     kOCEDirectoryNotFoundErr    = -1630;                        {  catalog was not found in the list  }
  141.     kOCEAbortNotSupportedForThisCall = -1631;                    {  this call cannot be aborted  }
  142.     kOCEAborted                    = -1632;                        {  this call was aborted  }
  143.     kOCEOCESetupRequired        = -1633;                        {  LocalIdentity Setup is required  }
  144.     kOCEDSAMRecordNotFound        = -1634;                        {  CSAM Record not found  }
  145.     kOCEDSAMNotInstantiated        = -1635;                        {  CSAM is not instantiated  }
  146.     kOCEDSAMRecordExists        = -1636;                        {  CSAM record already exists  }
  147.     kOCELengthError                = -1637;                        {  supplied buffer was too small  }
  148.     kOCEBadStartingRecord        = -1638;                        {  Lookup starting record is not within range  }
  149.     kOCEBadStartingAttribute    = -1639;                        {  Lookup starting attribute is not within range  }
  150.     kOCEMoreAttrValue            = -1640;                        {  attribute value could not fit into buffer (even though it was the only value)  }
  151.     kOCENoDupAllowed            = -1641;
  152.     kOCENoSuchAttributeType        = -1642;
  153.     kOCEMiscError                = -1643;                        {  some other error  }
  154.     kOCENoSuchIcon                = -1644;                        {  no matching icon from GetDirectoryIcon  }
  155.     kOCERLIsDontMatch            = -1645;                        {  RLIs do not match in lookup  }
  156.     kOCEDirectoryCorrupt        = -1646;                        {  Serious disk fill corruption problem  }
  157.  
  158. {  AOCE Standard Mail Errors (-1900 to -1949)  }
  159.     kSMPNotEnoughMemoryForAllRecips = -1900;
  160.     kSMPCopyInProgress            = -1901;
  161.     kSMPMailerNotInitialized    = -1902;
  162.     kSMPShouldNotAddContent        = -1903;
  163.     kSMPMailboxNotFound            = -1904;
  164.     kSMPNoNextLetter            = -1905;
  165.     kSMPHasOpenAttachments        = -1906;
  166.     kSMPFinderNotRunning        = -1907;
  167.     kSMPCommandDisabled            = -1908;
  168.     kSMPNoMailerInWindow        = -1909;
  169.     kSMPNoSuchAddress            = -1910;
  170.     kSMPMailerAlreadyInWindow    = -1911;
  171.     kSMPMailerUneditable        = -1912;
  172.     kSMPNoMatchingBegin            = -1913;
  173.     kSMPCannotSendReceivedLetter = -1914;
  174.     kSMPIllegalForDraftLetter    = -1915;
  175.     kSMPMailerCannotExpandOrContract = -1916;
  176.     kSMPMailerAlreadyExpandedOrContracted = -1917;
  177.     kSMPIllegalComponent        = -1918;
  178.     kSMPMailerAlreadyNotTarget    = -1919;
  179.     kSMPComponentIsAlreadyTarget = -1920;
  180.     kSMPRecordDoesNotContainAddress = -1921;
  181.     kSMPAddressAlreadyInList    = -1922;
  182.     kSMPIllegalSendFormats        = -1923;
  183.     kSMPInvalidAddressString    = -1924;
  184.     kSMPSubjectTooBig            = -1925;
  185.     kSMPParamCountErr            = -1926;                        {   enclosure count != 1, while sendEnclosure Only == true.  }
  186.     kSMPTooManyPages            = -1927;                        {   Exceeding the image page limit.  }
  187.     kSMPTooManyEnclosures        = -1928;
  188.  
  189. {  AOCE Standard Catalog Errors (-1950 to -1969)  }
  190.     kSDPNoSearchText            = -1950;
  191.     kSDPTooManyLoginAttempts    = -1951;
  192.     kSDPNoSelection                = -1952;
  193.     kSDPPersonalDirectoryRepairFailed = -1953;
  194.  
  195. {  AOCE Digital Signature Errors (-1970 to -1999)  }
  196.     kSIGOperationIncompatibleErr = -1970;                        {  context in use for different type of operation  }
  197.     kSIGCertificateQueryDenied    = -1971;                        {  can't query certificates with this context  }
  198.     kSIGVerifyFailedErr            = -1972;                        {  verification failed  }
  199.     kSIGInvalidCredentialErr    = -1973;                        {  verified OK but credential out of date,  either pending or expired  }
  200.     kSIGIndexErr                = -1974;                        {  the index given is outside the range of allowable values  }
  201.     kSIGSignerErr                = -1975;                        {  problem with the signer or signature itself  }
  202.     kSIGPasswordErr                = -1976;                        {  password is incorrect  }
  203.     kSIGInternalsErr            = -1977;                        {  an internal error occurred like a bad digest, context or signature  }
  204.     kSIGToolboxNotPresentErr    = -1978;                        {  for client services (ie servers) to report back - not retruned by the TB  }
  205.     kSIGContextPrepareErr        = -1979;                        {  context either prepared with VerifyPrepare, SignPrepare or DigestPrepare already or has been corrupted  }
  206.     kSIGNoDigestErr                = -1980;                        {  no digest in the signature  }
  207.     kSIGConversionErr            = -1981;                        {  unabled to convert an attribute to Mac format  }
  208.     kSIGSignerNotValidErr        = -1982;                        {  Signer has either expired or is pending and can not sign  }
  209.     kSIGNoSignature                = -1983;                        {  standard file signature not found  }
  210.  
  211. {  AOCE Templates Errors (-15000 to -15039)  }
  212.     kDETInvalidTargetAspectName    = -15000;                        {  Could not locate an aspect by name  }
  213.     kDETInvalidTargetItemNumber    = -15001;                        {  Item number is target invalid (out of range 1..<number of children>)  }
  214.     kDETInvalidTargetFromNonAspect = -15002;                    {  Target selection relative to non-aspect object which requires an aspect  }
  215.     kDETInvalidTargetDSSpec        = -15003;                        {  Target DSSpec could not be resolved  }
  216.     kDETUnknownTargetSelector    = -15004;                        {  Unknown selector type for target specification  }
  217.     kDETInvalidTarget            = -15005;                        {  Target specification was invalid (for reasons other than those above)  }
  218.     kDETTargetNotAnAspect        = -15006;                        {  Specified target object was not an aspect  }
  219.     kDETInvalidCommandItemNumber = -15007;                        {  Command item number invalid (out of range 1..<number of items in selection>)  }
  220.     kDETUnableToGetCommandItemSpec = -15008;                    {  Unable to retrieve item specification (internal error, possibly out of memory)  }
  221.     kDETRequestedTypeUnavailable = -15009;                        {  Command item could not be represented in the form requested  }
  222.     kDETInvalidDSSpec            = -15010;                        {  Could not resolve DSSpec (other than in target; see error above for targets)  }
  223.     kDETUnableToAccessProperty    = -15011;                        {  Property could not be found and/or created  }
  224.     kDETInfoPageNotOpen            = -15012;                        {  Info-page not open; request requires an open info-page  }
  225.     kDETNoSuchView                = -15013;                        {  No view found with specified property number  }
  226.     kDETCouldNotAddMenuItem        = -15014;                        {  Could not add item to dynamic menu  }
  227.     kDETCouldNotRemoveMenuItem    = -15015;                        {  Could not remove item from dynamic menu  }
  228.     kDETCouldNotFindMenuItem    = -15016;                        {  Could not find menu item  }
  229.     kDETCouldNotFindCustomView    = -15017;                        {  Could not find custom view in info-page  }
  230.     kDETInvalidReqFunction        = -15018;                        {  Invalid call-back request function  }
  231.     kDETInvalidCallBack            = -15019;                        {  Invalid call-back (for reasons other than those above)  }
  232.     kDETPropertyBusy            = -15020;                        {  Edit is open on the property being set  }
  233.  
  234. {  AOCE Mail Errors (-15040 to -15089)  }
  235.     kMailInvalidOrder            = -15040;                        {  This object has already been written to and cannot be written again  }
  236.                                                                 {  handle non-zero offsets for now  }
  237.     kMailInvalidSeqNum            = -15041;                        {  Invalid letter sequence o refers to an non-existent letter  }
  238.     kMailAttrNotInHdr            = -15042;                        {  attribute does not exist in this letter header  }
  239.     kMailHdrAttrMissing            = -15043;                        {  required attribute not written into letter header  }
  240.     kMailBadEnclLengthErr        = -15044;                        {  incorrect number of bytes has been written after memForm of PutEnclosure  }
  241.     kMailInvalidRequest            = -15045;                        {  cannot putAttr for report, putRcptReport for letter  }
  242.     kMailInvalidPostItVersion    = -15046;                        {  cannot create new postit with this version  }
  243.     kMailNotASlotInQ            = -15047;                        {  queueID does not refer to a slot's incoming queue  }
  244.     kMailLtrNotOpen                = -15048;                        {  letter is not open, probably not cached in inQ  }
  245.     kMailMissingMailCat            = -15049;                        {  trying to create message in inq, with no postIt  }
  246.     kMailCannotWriteMailCat        = -15050;                        {  cannot update a mail catentry  }
  247.     kMailTooManyTagsPerLetter    = -15051;                        {  cannot add more than kMaxTagsPerLetter tags  }
  248.     kMailGwyDead                = -15052;                        {  MSAM died  }
  249.     kMailIgnoredErr                = -15053;                        {  ePPC message was ignored  }
  250.     kMailLengthErr                = -15054;                        {  ePPC message did not complete  }
  251.     kMailTooManyErr                = -15055;                        {  Too many = request outstanding,  }
  252.     kMailNoMSAMErr                = -15056;                        {  no MSAMs found in mailbox! or for command  }
  253.     kMailCancelled                = -15057;
  254.     kMailSlotSuspended            = -15058;
  255.     kMailMSAMSuspended            = -15059;
  256.     kMailBadSlotInfo            = -15060;
  257.     kMailMalformedContent        = -15061;                        {  a mailed structure is malformed  }
  258.     kMailNoSuchSlot                = -15062;                        {  no such slot  }
  259.     kMailBadLtrInfo                = -15063;                        {  bad info there, can't change  }
  260.     kMailSetFailed                = -15064;                        {  could not set letter info  }
  261.     kMailBadConfig                = -15065;                        {  MSAM has bad config info  }
  262.     kMailBadMSAM                = -15066;                        {  bad MSAM: not usable = reason unspec,  }
  263.     kMailCannotLkupServerSlots    = -15067;                        {  cannot lookup adas for server mail slots  }
  264.     kMailBadState                = -15068;                        {  the state specifiy is not in any of defined  }
  265.  
  266. {  AOCE Messaging Errors (-15090 to -15169)  }
  267.     kIPMCantCreateIPMCatEntry    = -15090;
  268.     kIPMInvalidMsgType            = -15091;                        {  bad msg hint  }
  269.     kIPMInvalidProcHint            = -15092;                        {  bad proc hint  }
  270.     kIPMInvalidOffset            = -15093;                        {  bad offset for read/write  }
  271.     kIPMUpdateCatFailed            = -15094;
  272.     kIPMMsgTypeReserved            = -15095;
  273.     kIPMNotInABlock                = -15096;
  274.     kIPMNestedMsgOpened            = -15097;
  275.     kIPMA1HdrCorrupt            = -15098;
  276.     kIPMCorruptDataStructures    = -15099;
  277.     kIPMAbortOfNestedMsg        = -15100;
  278.     kIPMBlockIsNotNestedMsg        = -15101;
  279.     kIPMCacheFillError            = -15102;
  280.     kIPMInvalidSender            = -15103;
  281.     kIPMNoRecipientsYet            = -15104;
  282.     kIPMInvalidFilter            = -15105;
  283.     kIPMAttrNotInHdr            = -15106;
  284.     kIPMBlkNotFound                = -15107;
  285.     kIPMStreamErr                = -15108;                        {  Error on stream (should this ever go out?)  }
  286.     kIPMPortClosed                = -15109;                        {  Port closed (should this ever go out?)  }
  287.     kIPMBinBusy                    = -15110;
  288.     kIPMCorruptedBin            = -15111;
  289.     kIPMBadQName                = -15112;
  290.     kIPMEndOfBin                = -15113;
  291.     kIPMBinNeedsConversion        = -15114;
  292.     kIPMMgrInternalErr            = -15115;
  293.     kIPMEltBusy                    = -15116;
  294.     kIPMEltClosedNotDeleted        = -15117;
  295.     kIPMBadContext                = -15118;
  296.     kIPMContextIsClosing        = -15119;
  297.     kIPMeoQ                        = -15120;
  298.     kIPMQOutOfSpace                = -15121;
  299.     kIPMEltNotFound                = -15122;
  300.     kIPMBinOutOfSpace            = -15123;
  301.     kIPMeoCatEntry                = -15124;
  302.     kIPMeoElt                    = -15125;
  303.     kIPMQBusy                    = -15126;
  304.     kIPMNotSameBin                = -15127;
  305.     kIPMNoMoreServices            = -15128;
  306.     kIPMLookupAttrTooBig        = -15129;                        {  attribute in lookup is too big  }
  307.     kIPMUnknownUAM                = -15130;
  308.     kIPMUnsupportedLogin        = -15131;
  309.     kIPMLogInUnknown            = -15132;
  310.     kIPMNoMoreFilters            = -15133;
  311.     kIPMCouldNotReadInfoReply    = -15134;
  312.     kIPMInvalidUser                = -15135;
  313.     kIPMNoMoreSessions            = -15136;
  314.     kIPMNilUserProc                = -15137;
  315.     kIPMBadCatSize                = -15138;
  316.     kIPMIncompleteMsg            = -15139;
  317.     kIPMNoResponsibleTunnel        = -15140;
  318.     kIPMAccessDenied            = -15141;
  319.     kIPMReplyParamUnderrun        = -15142;                        {  Too few reply parameters  }
  320.     kIPMReplyParamOverrun        = -15143;                        {  Too many reply parameters  }
  321.     kIPMRequestParamUnderrun    = -15144;                        {  Too few request parameters  }
  322.     kIPMOutOfSync                = -15145;                        {  Protocol sync. error  }
  323.     kIPMNoAttrsFound            = -15146;                        {  couldn't find any attrs in lookup  }
  324.     kIPMWrongAttrTag            = -15147;                        {  wrong attr tag in adas lookup  }
  325.     kIPMNullCID                    = -15148;                        {  null cid in enumerate  }
  326.     kIPMBadMailSlotAttrVal        = -15149;                        {  invalid mailslot attr value  }
  327.  
  328. {$ENDC}
  329. {$ALIGN RESET}
  330. {$POP}
  331.  
  332. {$SETC UsingIncludes := OCEErrorsIncludes}
  333.  
  334. {$ENDC} {__OCEERRORS__}
  335.  
  336. {$IFC NOT UsingIncludes}
  337.  END.
  338. {$ENDC}
  339.